#! /usr/bin/perl

use diagnostics;
use strict;
use Digest::SHA1  qw(sha1);

my $sha1 = Digest::SHA1->new;
open( FILE, "<", '/home/clock/a') or die "Not founded.";
binmode(FILE);
$sha1->addfile(*FILE);
close(FILE);
